From 691511f4b60251fdb061c54caf2f107b3ec40142 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sun, 5 Nov 2006 20:52:37 +0000 Subject: [PATCH] (read-feature): Don't complete features not loaded from a file (which make `unload-feature' to fail). --- lisp/loadhist.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/loadhist.el b/lisp/loadhist.el index 61f15c8ef1c..6683f8ae413 100644 --- a/lisp/loadhist.el +++ b/lisp/loadhist.el @@ -119,7 +119,9 @@ return the feature \(symbol\)." (mapcar (lambda (feature) (list (symbol-name feature))) features) - nil t))) + ;; Complete only features loaded from a file + #'(lambda (f) (feature-file (intern (car f)))) + t))) (defvaralias 'loadhist-hook-functions 'unload-feature-special-hooks) (defvar unload-feature-special-hooks -- 2.30.2